﻿
Public Class charset
    Protected value As String

    Public Overrides Function ToString() As String
        Return value
    End Function

    Public Shared Widening Operator CType(ByVal this As charset) As String
        Return this.value
    End Operator

    Public Shared Widening Operator CType(ByVal this As String) As charset
        Dim rtn As charset = Nothing
        rtn = New charset()
        rtn.value = this

        Return rtn
    End Operator
End Class
